3.7.17 \(\int \frac {1}{(a+b x)^2 (a^2-b^2 x^2)^3} \, dx\)

Optimal. Leaf size=122 \[ \frac {15 \tanh ^{-1}\left (\frac {b x}{a}\right )}{64 a^7 b}+\frac {5}{64 a^6 b (a-b x)}-\frac {5}{32 a^6 b (a+b x)}+\frac {1}{64 a^5 b (a-b x)^2}-\frac {3}{32 a^5 b (a+b x)^2}-\frac {1}{16 a^4 b (a+b x)^3}-\frac {1}{32 a^3 b (a+b x)^4} \]

________________________________________________________________________________________

Rubi [A]  time = 0.08, antiderivative size = 122, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, integrand size = 22, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.136, Rules used = {627, 44, 208} \begin {gather*} \frac {5}{64 a^6 b (a-b x)}-\frac {5}{32 a^6 b (a+b x)}+\frac {1}{64 a^5 b (a-b x)^2}-\frac {3}{32 a^5 b (a+b x)^2}-\frac {1}{16 a^4 b (a+b x)^3}-\frac {1}{32 a^3 b (a+b x)^4}+\frac {15 \tanh ^{-1}\left (\frac {b x}{a}\right )}{64 a^7 b} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[1/((a + b*x)^2*(a^2 - b^2*x^2)^3),x]

[Out]

1/(64*a^5*b*(a - b*x)^2) + 5/(64*a^6*b*(a - b*x)) - 1/(32*a^3*b*(a + b*x)^4) - 1/(16*a^4*b*(a + b*x)^3) - 3/(3
2*a^5*b*(a + b*x)^2) - 5/(32*a^6*b*(a + b*x)) + (15*ArcTanh[(b*x)/a])/(64*a^7*b)

Rule 44

Int[((a_) + (b_.)*(x_))^(m_.)*((c_.) + (d_.)*(x_))^(n_.), x_Symbol] :> Int[ExpandIntegrand[(a + b*x)^m*(c + d*
x)^n, x], x] /; FreeQ[{a, b, c, d}, x] && NeQ[b*c - a*d, 0] && ILtQ[m, 0] && IntegerQ[n] &&  !(IGtQ[n, 0] && L
tQ[m + n + 2, 0])

Rule 208

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(Rt[-(a/b), 2]*ArcTanh[x/Rt[-(a/b), 2]])/a, x] /; FreeQ[{a,
b}, x] && NegQ[a/b]

Rule 627

Int[((d_) + (e_.)*(x_))^(m_.)*((a_) + (c_.)*(x_)^2)^(p_.), x_Symbol] :> Int[(d + e*x)^(m + p)*(a/d + (c*x)/e)^
p, x] /; FreeQ[{a, c, d, e, m, p}, x] && EqQ[c*d^2 + a*e^2, 0] && (IntegerQ[p] || (GtQ[a, 0] && GtQ[d, 0] && I
ntegerQ[m + p]))

Rubi steps

\begin {align*} \int \frac {1}{(a+b x)^2 \left (a^2-b^2 x^2\right )^3} \, dx &=\int \frac {1}{(a-b x)^3 (a+b x)^5} \, dx\\ &=\int \left (\frac {1}{32 a^5 (a-b x)^3}+\frac {5}{64 a^6 (a-b x)^2}+\frac {1}{8 a^3 (a+b x)^5}+\frac {3}{16 a^4 (a+b x)^4}+\frac {3}{16 a^5 (a+b x)^3}+\frac {5}{32 a^6 (a+b x)^2}+\frac {15}{64 a^6 \left (a^2-b^2 x^2\right )}\right ) \, dx\\ &=\frac {1}{64 a^5 b (a-b x)^2}+\frac {5}{64 a^6 b (a-b x)}-\frac {1}{32 a^3 b (a+b x)^4}-\frac {1}{16 a^4 b (a+b x)^3}-\frac {3}{32 a^5 b (a+b x)^2}-\frac {5}{32 a^6 b (a+b x)}+\frac {15 \int \frac {1}{a^2-b^2 x^2} \, dx}{64 a^6}\\ &=\frac {1}{64 a^5 b (a-b x)^2}+\frac {5}{64 a^6 b (a-b x)}-\frac {1}{32 a^3 b (a+b x)^4}-\frac {1}{16 a^4 b (a+b x)^3}-\frac {3}{32 a^5 b (a+b x)^2}-\frac {5}{32 a^6 b (a+b x)}+\frac {15 \tanh ^{-1}\left (\frac {b x}{a}\right )}{64 a^7 b}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.05, size = 98, normalized size = 0.80 \begin {gather*} \frac {\frac {2 a \left (-16 a^5+17 a^4 b x+50 a^3 b^2 x^2+10 a^2 b^3 x^3-30 a b^4 x^4-15 b^5 x^5\right )}{(a-b x)^2 (a+b x)^4}-15 \log (a-b x)+15 \log (a+b x)}{128 a^7 b} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[1/((a + b*x)^2*(a^2 - b^2*x^2)^3),x]

[Out]

((2*a*(-16*a^5 + 17*a^4*b*x + 50*a^3*b^2*x^2 + 10*a^2*b^3*x^3 - 30*a*b^4*x^4 - 15*b^5*x^5))/((a - b*x)^2*(a +
b*x)^4) - 15*Log[a - b*x] + 15*Log[a + b*x])/(128*a^7*b)

________________________________________________________________________________________

IntegrateAlgebraic [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {1}{(a+b x)^2 \left (a^2-b^2 x^2\right )^3} \, dx \end {gather*}

Verification is not applicable to the result.

[In]

IntegrateAlgebraic[1/((a + b*x)^2*(a^2 - b^2*x^2)^3),x]

[Out]

IntegrateAlgebraic[1/((a + b*x)^2*(a^2 - b^2*x^2)^3), x]

________________________________________________________________________________________

fricas [B]  time = 0.41, size = 266, normalized size = 2.18 \begin {gather*} -\frac {30 \, a b^{5} x^{5} + 60 \, a^{2} b^{4} x^{4} - 20 \, a^{3} b^{3} x^{3} - 100 \, a^{4} b^{2} x^{2} - 34 \, a^{5} b x + 32 \, a^{6} - 15 \, {\left (b^{6} x^{6} + 2 \, a b^{5} x^{5} - a^{2} b^{4} x^{4} - 4 \, a^{3} b^{3} x^{3} - a^{4} b^{2} x^{2} + 2 \, a^{5} b x + a^{6}\right )} \log \left (b x + a\right ) + 15 \, {\left (b^{6} x^{6} + 2 \, a b^{5} x^{5} - a^{2} b^{4} x^{4} - 4 \, a^{3} b^{3} x^{3} - a^{4} b^{2} x^{2} + 2 \, a^{5} b x + a^{6}\right )} \log \left (b x - a\right )}{128 \, {\left (a^{7} b^{7} x^{6} + 2 \, a^{8} b^{6} x^{5} - a^{9} b^{5} x^{4} - 4 \, a^{10} b^{4} x^{3} - a^{11} b^{3} x^{2} + 2 \, a^{12} b^{2} x + a^{13} b\right )}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(b*x+a)^2/(-b^2*x^2+a^2)^3,x, algorithm="fricas")

[Out]

-1/128*(30*a*b^5*x^5 + 60*a^2*b^4*x^4 - 20*a^3*b^3*x^3 - 100*a^4*b^2*x^2 - 34*a^5*b*x + 32*a^6 - 15*(b^6*x^6 +
2*a*b^5*x^5 - a^2*b^4*x^4 - 4*a^3*b^3*x^3 - a^4*b^2*x^2 + 2*a^5*b*x + a^6)*log(b*x + a) + 15*(b^6*x^6 + 2*a*b
^5*x^5 - a^2*b^4*x^4 - 4*a^3*b^3*x^3 - a^4*b^2*x^2 + 2*a^5*b*x + a^6)*log(b*x - a))/(a^7*b^7*x^6 + 2*a^8*b^6*x
^5 - a^9*b^5*x^4 - 4*a^10*b^4*x^3 - a^11*b^3*x^2 + 2*a^12*b^2*x + a^13*b)

________________________________________________________________________________________

giac [A]  time = 0.17, size = 125, normalized size = 1.02 \begin {gather*} -\frac {15 \, \log \left ({\left | -\frac {2 \, a}{b x + a} + 1 \right |}\right )}{128 \, a^{7} b} + \frac {\frac {24 \, a}{b x + a} - 11}{256 \, a^{7} b {\left (\frac {2 \, a}{b x + a} - 1\right )}^{2}} - \frac {\frac {5 \, a^{6} b^{11}}{b x + a} + \frac {3 \, a^{7} b^{11}}{{\left (b x + a\right )}^{2}} + \frac {2 \, a^{8} b^{11}}{{\left (b x + a\right )}^{3}} + \frac {a^{9} b^{11}}{{\left (b x + a\right )}^{4}}}{32 \, a^{12} b^{12}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(b*x+a)^2/(-b^2*x^2+a^2)^3,x, algorithm="giac")

[Out]

-15/128*log(abs(-2*a/(b*x + a) + 1))/(a^7*b) + 1/256*(24*a/(b*x + a) - 11)/(a^7*b*(2*a/(b*x + a) - 1)^2) - 1/3
2*(5*a^6*b^11/(b*x + a) + 3*a^7*b^11/(b*x + a)^2 + 2*a^8*b^11/(b*x + a)^3 + a^9*b^11/(b*x + a)^4)/(a^12*b^12)

________________________________________________________________________________________

maple [A]  time = 0.05, size = 126, normalized size = 1.03 \begin {gather*} -\frac {1}{32 \left (b x +a \right )^{4} a^{3} b}-\frac {1}{16 \left (b x +a \right )^{3} a^{4} b}+\frac {1}{64 \left (b x -a \right )^{2} a^{5} b}-\frac {3}{32 \left (b x +a \right )^{2} a^{5} b}-\frac {5}{64 \left (b x -a \right ) a^{6} b}-\frac {5}{32 \left (b x +a \right ) a^{6} b}-\frac {15 \ln \left (b x -a \right )}{128 a^{7} b}+\frac {15 \ln \left (b x +a \right )}{128 a^{7} b} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(1/(b*x+a)^2/(-b^2*x^2+a^2)^3,x)

[Out]

-15/128/a^7/b*ln(b*x-a)-5/64/a^6/b/(b*x-a)+1/64/a^5/b/(b*x-a)^2+15/128/a^7/b*ln(b*x+a)-5/32/a^6/b/(b*x+a)-3/32
/a^5/b/(b*x+a)^2-1/16/a^4/b/(b*x+a)^3-1/32/a^3/b/(b*x+a)^4

________________________________________________________________________________________

maxima [A]  time = 1.57, size = 156, normalized size = 1.28 \begin {gather*} -\frac {15 \, b^{5} x^{5} + 30 \, a b^{4} x^{4} - 10 \, a^{2} b^{3} x^{3} - 50 \, a^{3} b^{2} x^{2} - 17 \, a^{4} b x + 16 \, a^{5}}{64 \, {\left (a^{6} b^{7} x^{6} + 2 \, a^{7} b^{6} x^{5} - a^{8} b^{5} x^{4} - 4 \, a^{9} b^{4} x^{3} - a^{10} b^{3} x^{2} + 2 \, a^{11} b^{2} x + a^{12} b\right )}} + \frac {15 \, \log \left (b x + a\right )}{128 \, a^{7} b} - \frac {15 \, \log \left (b x - a\right )}{128 \, a^{7} b} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(b*x+a)^2/(-b^2*x^2+a^2)^3,x, algorithm="maxima")

[Out]

-1/64*(15*b^5*x^5 + 30*a*b^4*x^4 - 10*a^2*b^3*x^3 - 50*a^3*b^2*x^2 - 17*a^4*b*x + 16*a^5)/(a^6*b^7*x^6 + 2*a^7
*b^6*x^5 - a^8*b^5*x^4 - 4*a^9*b^4*x^3 - a^10*b^3*x^2 + 2*a^11*b^2*x + a^12*b) + 15/128*log(b*x + a)/(a^7*b) -
15/128*log(b*x - a)/(a^7*b)

________________________________________________________________________________________

mupad [B]  time = 0.47, size = 136, normalized size = 1.11 \begin {gather*} \frac {\frac {17\,x}{64\,a^2}-\frac {1}{4\,a\,b}+\frac {25\,b\,x^2}{32\,a^3}+\frac {5\,b^2\,x^3}{32\,a^4}-\frac {15\,b^3\,x^4}{32\,a^5}-\frac {15\,b^4\,x^5}{64\,a^6}}{a^6+2\,a^5\,b\,x-a^4\,b^2\,x^2-4\,a^3\,b^3\,x^3-a^2\,b^4\,x^4+2\,a\,b^5\,x^5+b^6\,x^6}+\frac {15\,\mathrm {atanh}\left (\frac {b\,x}{a}\right )}{64\,a^7\,b} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(1/((a^2 - b^2*x^2)^3*(a + b*x)^2),x)

[Out]

((17*x)/(64*a^2) - 1/(4*a*b) + (25*b*x^2)/(32*a^3) + (5*b^2*x^3)/(32*a^4) - (15*b^3*x^4)/(32*a^5) - (15*b^4*x^
5)/(64*a^6))/(a^6 + b^6*x^6 + 2*a*b^5*x^5 - a^4*b^2*x^2 - 4*a^3*b^3*x^3 - a^2*b^4*x^4 + 2*a^5*b*x) + (15*atanh
((b*x)/a))/(64*a^7*b)

________________________________________________________________________________________

sympy [A]  time = 0.77, size = 158, normalized size = 1.30 \begin {gather*} - \frac {16 a^{5} - 17 a^{4} b x - 50 a^{3} b^{2} x^{2} - 10 a^{2} b^{3} x^{3} + 30 a b^{4} x^{4} + 15 b^{5} x^{5}}{64 a^{12} b + 128 a^{11} b^{2} x - 64 a^{10} b^{3} x^{2} - 256 a^{9} b^{4} x^{3} - 64 a^{8} b^{5} x^{4} + 128 a^{7} b^{6} x^{5} + 64 a^{6} b^{7} x^{6}} - \frac {\frac {15 \log {\left (- \frac {a}{b} + x \right )}}{128} - \frac {15 \log {\left (\frac {a}{b} + x \right )}}{128}}{a^{7} b} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(b*x+a)**2/(-b**2*x**2+a**2)**3,x)

[Out]

-(16*a**5 - 17*a**4*b*x - 50*a**3*b**2*x**2 - 10*a**2*b**3*x**3 + 30*a*b**4*x**4 + 15*b**5*x**5)/(64*a**12*b +
128*a**11*b**2*x - 64*a**10*b**3*x**2 - 256*a**9*b**4*x**3 - 64*a**8*b**5*x**4 + 128*a**7*b**6*x**5 + 64*a**6
*b**7*x**6) - (15*log(-a/b + x)/128 - 15*log(a/b + x)/128)/(a**7*b)

________________________________________________________________________________________